home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / vsview17 / fdesk.frm < prev    next >
Text File  |  1994-11-04  |  12KB  |  424 lines
  1. VERSION 2.00
  2. Begin Form fdesk 
  3.    BackColor       =   &H0080FFFF&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   5805
  6.    ClientLeft      =   450
  7.    ClientTop       =   870
  8.    ClientWidth     =   8670
  9.    ControlBox      =   0   'False
  10.    Height          =   6300
  11.    Left            =   345
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   5805
  15.    ScaleWidth      =   8670
  16.    Top             =   480
  17.    Width           =   8880
  18.    Begin vsInForm InForm 
  19.       BarColor        =   &H00800080&
  20.       BarColorInactive=   &H00800080&
  21.       BarHeight       =   16
  22.       ButtonsLeft     =   3  '3
  23.       ButtonsRight    =   2  '2
  24.       CapAlign        =   1  'Left Center
  25.       CapColor        =   &H00FFFFFF&
  26.       CapColorInactive=   &H00FFFFFF&
  27.       Caption         =   " VideoSoft SmartDesk"
  28.       ClipMon         =   -1  'True
  29.       ConvInfo        =   FDESK.FRX:0000
  30.       FontBold        =   -1  'True
  31.       FontItalic      =   0   'False
  32.       FontName        =   "Small Fonts"
  33.       FontSize        =   6.75
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       FrameColor      =   &H00C0C0C0&
  37.       FrameColorInactive=   &H00C0C0C0&
  38.       FrameStyle      =   4  'Raised Frame
  39.       FrameWidth      =   10
  40.       Left            =   6600
  41.       PictLeft0       =   FDESK.FRX:000B
  42.       PictLeft1       =   FDESK.FRX:00D5
  43.       PictLeft2       =   FDESK.FRX:019F
  44.       PictRight0      =   FDESK.FRX:0269
  45.       PictRight1      =   FDESK.FRX:0333
  46.       Top             =   4800
  47.    End
  48.    Begin PictureBox Picture4 
  49.       BackColor       =   &H00C0C0C0&
  50.       Height          =   4935
  51.       Left            =   105
  52.       ScaleHeight     =   4125
  53.       ScaleWidth      =   4800
  54.       TabIndex        =   2
  55.       Top             =   240
  56.       Width           =   5100
  57.       Begin vsInForm vsInForm3 
  58.          AcceptFiles     =   -1  'True
  59.          BarColorInactive=   &H00808000&
  60.          BarHeight       =   34
  61.          ButtonsLeft     =   0  '0
  62.          ButtonsRight    =   3  '3
  63.          CapColorInactive=   &H00FFFFFF&
  64.          Caption         =   "Visual Printer"
  65.          ConvInfo        =   FDESK.FRX:03FD
  66.          CustomFrame     =   -1  'True
  67.          FontBold        =   -1  'True
  68.          FontItalic      =   0   'False
  69.          FontName        =   "Arial"
  70.          FontSize        =   12
  71.          FontStrikethru  =   0   'False
  72.          FontUnderline   =   0   'False
  73.          FrameColor      =   &H00C0C0C0&
  74.          FrameColorInactive=   &H00C0C0C0&
  75.          FrameCorners    =   0   'False
  76.          FrameSizing     =   0  'None
  77.          FrameStyle      =   3  'Raised Form
  78.          FrameWidth      =   10
  79.          Left            =   480
  80.          PictRight0      =   FDESK.FRX:0408
  81.          PictRight1      =   FDESK.FRX:0612
  82.          PictRight2      =   FDESK.FRX:07FC
  83.          Top             =   3120
  84.       End
  85.       Begin vsViewPort vsViewPort1 
  86.          BackColor       =   &H00808080&
  87.          ConvInfo        =   FDESK.FRX:09F6
  88.          Height          =   3870
  89.          Left            =   105
  90.          Top             =   105
  91.          VirtualHeight   =   0
  92.          VirtualWidth    =   0
  93.          Width           =   4530
  94.          Begin vsPrinter vsPrinter 
  95.             ConvInfo        =   FDESK.FRX:0A01
  96.             FontName        =   "Arial"
  97.             FontSize        =   24
  98.             HdrColor        =   &H00FF0000&
  99.             HdrFontBold     =   -1  'True
  100.             HdrFontName     =   "Bookman Old Style"
  101.             HdrFontSize     =   18
  102.             Header          =   "|VideoSoft VSView"
  103.             Height          =   2430
  104.             Left            =   105
  105.             Top             =   105
  106.             Width           =   2640
  107.          End
  108.       End
  109.    End
  110.    Begin PictureBox Picture1 
  111.       BackColor       =   &H00C0C0C0&
  112.       Height          =   1590
  113.       Index           =   0
  114.       Left            =   5460
  115.       ScaleHeight     =   840
  116.       ScaleWidth      =   2655
  117.       TabIndex        =   0
  118.       Top             =   210
  119.       Width           =   2955
  120.       Begin vsInForm VSInForm2 
  121.          BarColor        =   &H00808000&
  122.          BarColorInactive=   &H00800080&
  123.          BarHeight       =   30
  124.          BarStyle        =   3  'Raised
  125.          ButtonsLeft     =   0  '0
  126.          CapAlign        =   1  'Left Center
  127.          CapColor        =   &H00FFFFFF&
  128.          CapColorInactive=   &H00FFFFFF&
  129.          Caption         =   "  Most used API Calls"
  130.          ConvInfo        =   FDESK.FRX:0A0C
  131.          CustomFrame     =   -1  'True
  132.          FrameColor      =   &H00C0C0C0&
  133.          FrameColorInactive=   &H00C0C0C0&
  134.          FrameCorners    =   0   'False
  135.          FrameSizing     =   0  'None
  136.          FrameStyle      =   3  'Raised Form
  137.          FrameWidth      =   10
  138.          Index           =   0
  139.          Left            =   -15
  140.          Top             =   -135
  141.       End
  142.       Begin Label lStatus 
  143.          BackStyle       =   0  'Transparent
  144.          FontBold        =   0   'False
  145.          FontItalic      =   0   'False
  146.          FontName        =   "MS Sans Serif"
  147.          FontSize        =   8.25
  148.          FontStrikethru  =   0   'False
  149.          FontUnderline   =   0   'False
  150.          Height          =   645
  151.          Index           =   0
  152.          Left            =   0
  153.          TabIndex        =   1
  154.          Top             =   105
  155.          Width           =   2535
  156.       End
  157.    End
  158.    Begin PictureBox Picture1 
  159.       BackColor       =   &H00C0C0C0&
  160.       Height          =   2220
  161.       Index           =   1
  162.       Left            =   5460
  163.       ScaleHeight     =   1470
  164.       ScaleWidth      =   2655
  165.       TabIndex        =   3
  166.       Top             =   2205
  167.       Width           =   2955
  168.       Begin ComboBox cmb_printers 
  169.          Height          =   300
  170.          Left            =   630
  171.          Style           =   2  'Dropdown List
  172.          TabIndex        =   5
  173.          Top             =   105
  174.          Width           =   1905
  175.       End
  176.       Begin vsInForm VSInForm2 
  177.          BarColor        =   &H00800080&
  178.          BarColorInactive=   &H00800080&
  179.          BarHeight       =   30
  180.          BarStyle        =   3  'Raised
  181.          ButtonsLeft     =   0  '0
  182.          CapAlign        =   1  'Left Center
  183.          CapColor        =   &H00FFFFFF&
  184.          CapColorInactive=   &H00FFFFFF&
  185.          Caption         =   "  Printer Settings"
  186.          ConvInfo        =   FDESK.FRX:0A17
  187.          CustomFrame     =   -1  'True
  188.          FrameColor      =   &H00C0C0C0&
  189.          FrameColorInactive=   &H00C0C0C0&
  190.          FrameCorners    =   0   'False
  191.          FrameSizing     =   0  'None
  192.          FrameStyle      =   3  'Raised Form
  193.          FrameWidth      =   10
  194.          Index           =   2
  195.          Left            =   -15
  196.          Top             =   495
  197.       End
  198.       Begin Label lStatus 
  199.          BackStyle       =   0  'Transparent
  200.          FontBold        =   0   'False
  201.          FontItalic      =   0   'False
  202.          FontName        =   "MS Sans Serif"
  203.          FontSize        =   8.25
  204.          FontStrikethru  =   0   'False
  205.          FontUnderline   =   0   'False
  206.          Height          =   960
  207.          Index           =   1
  208.          Left            =   0
  209.          TabIndex        =   4
  210.          Top             =   525
  211.          Width           =   2640
  212.       End
  213.    End
  214.    Begin Image Pin 
  215.       Height          =   150
  216.       Index           =   0
  217.       Left            =   105
  218.       Picture         =   FDESK.FRX:0A22
  219.       Top             =   0
  220.       Visible         =   0   'False
  221.       Width           =   150
  222.    End
  223.    Begin Image Pin 
  224.       Height          =   150
  225.       Index           =   1
  226.       Left            =   300
  227.       Picture         =   FDESK.FRX:0AEC
  228.       Top             =   60
  229.       Visible         =   0   'False
  230.       Width           =   150
  231.    End
  232. End
  233. Option Explicit
  234.  
  235. Sub cmb_printers_Click ()
  236.     Dim s$
  237.  
  238.     mousepointer = 11
  239.  
  240.     vsPrinter.Device = cmb_printers.List(cmb_printers.ListIndex)
  241.   
  242.     s = "Orientation: " + vsPrinter.Orientation + Chr(13)
  243.     s = s + "DPI: " + vsPrinter.DPI + Chr(13)
  244.     s = s + "Port: :" + vsPrinter.Port + Chr(13)
  245.     s = s + "Driver: :" + vsPrinter.Driver
  246.  
  247.     lStatus(1) = s
  248.  
  249.     mousepointer = 0
  250. End Sub
  251.  
  252. Sub Form_Load ()
  253.  
  254.   Inform.CustomFrame = True
  255.   
  256.   Dim s$
  257.  
  258.   'Most Used APIs
  259.   s = "Mem: " + Format(Inform.FreeMemory \ 1024, "#,###") + "k" + Chr(13)
  260.   s = s + "Sys:" + Str(Inform.FreeSystem) + "%"
  261.   s = s + " Usr:" + Str(Inform.FreeUser) + "%"
  262.   s = s + " GDI:" + Str(Inform.FreeGDI) + "%"
  263.   lStatus(0) = s
  264.  
  265.   ' Display Printer Settings
  266.   Dim i%
  267.   For i = 0 To vsPrinter.NDevices - 1
  268.     cmb_printers.AddItem vsPrinter.Devices(i)
  269.   Next i
  270.   cmb_printers.ListIndex = 0
  271.  
  272.   vsPrinter.Width = vsPrinter.PageWidth
  273.   vsPrinter.Height = vsPrinter.PageHeight
  274.   VSViewPort1.VirtualWidth = vsPrinter.PageWidth
  275.   VSViewPort1.VirtualHeight = vsPrinter.PageHeight
  276.   
  277.   Me.Show
  278.  
  279.   vsPrinter.Preview = True
  280.  
  281.   MsgBox " Drag TEXT files from File Manager to the Visual Printer"
  282.   
  283. End Sub
  284.  
  285. Sub Form_Paint ()
  286.  
  287.   
  288.   'vsPrinter.Top = VSViewPort1.VirtualHeight / 2
  289. End Sub
  290.  
  291. Sub GoPrint (c As Control)
  292.   Dim i%, fn$, fl&
  293.  
  294.   vsPrinter.PageBorder = 3   'top and bottom
  295.  
  296.   For i = 0 To c.NumFiles - 1
  297.     
  298.     ' set header and footer
  299.     fn = c.FileName(i)
  300.     fl = FileLen(fn)
  301.     
  302.     vsPrinter.FileName = fn
  303.     vsPrinter.Header = fn + "||Page %d"
  304.     vsPrinter.Footer = FileDateTime(fn) + "|VideoSoft VSView|"
  305.     
  306.     If fl > 10 * 1024 Then
  307.       vsPrinter.Footer = vsPrinter.Footer + Format(fl / 1024, "###,###,###") + " K bytes"
  308.     Else
  309.       vsPrinter.Footer = vsPrinter.Footer + Format(fl, "###,###,###") + " bytes"
  310.     End If
  311.     
  312.     vsPrinter.Action = 1
  313.     
  314.   Next
  315.   Form_Paint
  316.  
  317. End Sub
  318.  
  319. Sub InForm_ClickLButton (Button As Integer)
  320.   Dim s$
  321.   
  322.   Select Case Button
  323.     
  324.     ' button 0 is end
  325.     Case 0
  326.       Unload Me
  327.     
  328.     ' button 1 is keep on top
  329.     Case 1
  330.       Inform.OnTop = Not Inform.OnTop
  331.       If Inform.OnTop Then
  332.         Inform.PictLeft1 = Pin(1)
  333.       Else
  334.         Inform.PictLeft1 = Pin(0)
  335.       End If
  336.     
  337.     ' button 2 is help
  338.     Case 2
  339.       s = "Drag files from the file manager into the Visual printer"
  340.       s = s + Chr(13) + "Use pin button to keep the window on top"
  341.       MsgBox s
  342.   End Select
  343. End Sub
  344.  
  345. Sub InForm_ClickRButton (Button As Integer)
  346.   Select Case Button
  347.     
  348.     ' button 0 is maximize/restore
  349.     Case 0
  350.       InForm_DblClickCaption
  351.     
  352.     ' button 1 is minimize
  353.     Case 1
  354.       WindowState = 1
  355.   End Select
  356. End Sub
  357.  
  358. Sub InForm_DblClickCaption ()
  359.   If WindowState = 0 Then
  360.     WindowState = 2
  361.   ElseIf WindowState = 2 Then
  362.     WindowState = 0
  363.   End If
  364. End Sub
  365.  
  366. Sub InForm_NewClipboardData ()
  367.  ' eV = Clipboard.GetText()
  368.  ' If eV = "" Then
  369.  '   eV.Picture = Clipboard.GetData()
  370.  ' End If
  371. End Sub
  372.  
  373. Sub vsInForm3_ClickRButton (Button As Integer)
  374.   Static Zoom%
  375.  
  376.   mousepointer = 11
  377.   DoEvents
  378.  
  379.   Select Case Button
  380.  
  381.       Case 0    'Zoom
  382.           Zoom = Zoom + 20
  383.           If Zoom > 100 Then Zoom = 20
  384.           vsPrinter.Width = vsPrinter.PageWidth * Zoom / 100 * 2.15
  385.           vsPrinter.Height = vsPrinter.PageHeight * Zoom / 100 * 2.15
  386.           VSViewPort1.VirtualWidth = vsPrinter.Width
  387.           VSViewPort1.VirtualHeight = vsPrinter.Height
  388.  
  389.       Case 1      'Print file
  390.           If vsPrinter.FileName <> "" Then
  391.             vsPrinter.Preview = False
  392.             vsPrinter.Action = 1
  393.             vsPrinter.Preview = True
  394.           End If
  395.  
  396.       Case 2      'Clear the printer
  397.           vsPrinter.FileName = ""
  398.           vsPrinter.PageBorder = 0   'none
  399.           vsPrinter.Header = ""
  400.           vsPrinter.Footer = ""
  401.           vsPrinter.Action = 3
  402.           vsPrinter.Action = 6
  403.           
  404.   End Select
  405.  
  406.   mousepointer = 0
  407.  
  408. End Sub
  409.  
  410. Sub vsInForm3_DropFile ()
  411.   
  412.   ' print file
  413.   mousepointer = 11
  414.   
  415.   vsPrinter.Preview = True
  416.   vsPrinter.PreviewPage = 1
  417.  
  418.   GoPrint vsInform3
  419.   
  420.   mousepointer = 0
  421.  
  422. End Sub
  423.  
  424.